For Each Short[] (gb)

Dim hShortArray As Short[]
Dim aShort As Short
For Each aShort In hShortArray
  ...
Next

Enumera ogni elemento memorizzato nell'array.